home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00002Series_131.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  669 b   |  23 lines
  1. on mouseUp
  2.   if char 2 of field "modnummast" = "2" then
  3.     put chars(field "modnummast", 1, 8) into field "modnummast"
  4.     if char 9 of field "modnummast" = "." then
  5.       put field "modnummast"
  6.     else
  7.       put "." after field "modnummast"
  8.     end if
  9.   end if
  10.   if char 2 of field "modnummast" = "." then
  11.     put chars(field "modnummast", 1, 9) into field "modnummast"
  12.   end if
  13.   if field "wheelfield" contains "Polyolefin" then
  14.     put field "wheelmod" & "3" after field "modnummast"
  15.     finder()
  16.     play frame item 5 of field "spec2"
  17.   else
  18.     put field "wheelmod" & "1" after field "modnummast"
  19.     finder()
  20.     play frame item 5 of field "spec2"
  21.   end if
  22. end
  23.